release/ver 0.2.1/loadings/R/unsvmultipls_loading.R

In hiroyukiyamamoto/loadings: Loadings for Principal Component Analysis and Partial Least Squares

unsvmultipls_loading <- function(unsvmultipls){
  
  unsvmultipls$U <- unsvmultipls$T[[length(unsvmultipls$T)]]
  unsvmultipls$Q <- unsvmultipls$P[[length(unsvmultipls$P)]]
  
  unsvmultipls <- multipls_loading(unsvmultipls)
  
  unsvmultipls$U <- NULL
  unsvmultipls$Q <- NULL
  
  return(unsvmultipls)
}